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-- Runlmage.mesa; edited by Sandman; July 17, 1978 12:02 PM 

DIRECTORY 

AllocDefs: FROM "allocdefs" USING [Alloclnfo, MakeDataSegment] , 

AltoDefs: FROM "altodefs" USING [PageSize], 

AltoFileDefs: FROM "altof iledef s M USING [CFP], 

BFSDefs: FROM "bfsdefs" USING [MakeCFP], 

BinaryDefs: FROM "binarydefs" USING [MesaBootLoader] , 

ControlDefs: FROM "controldef s" USING [ 
FieldDescriptor, StateVector, SVPointer], 

CoreSwapDefs: FROM "coreswapdef s" USING [Puntlnfo], 

DiskDefs: FROM "diskdefs" USING [DA, RealDA], 

ImageDefs: FROM "imagedefs" USING [ImageHeader, Mapltem, VersionID], 

InlineDefs: FROM "inlinedefs" USING [BITSHIFT], 

MiscDefs: FROM "miscdefs" USING [DestroyFakeModule, Zero], 

Mopcodes: FROM "mopcodes" USING [zLI4, zRFS, zSHIFT, zWFS], 

NovaOps: FROM "novaops" USING [NovaJSR], 

ProcessDefs: FROM "processdef s" USING [ 

ActiveWord, ConditionVector , CV, DIW, SwatLevel], 

SegmentDefs: FROM "segmentdef s" USING [ 

CopyFileToDataSegment, DataSegmentAddress, DataSegmentHandle, 
DeleteDataSegment, DeleteFileSegment , FileHandle, FileSegmentAddress, 
FileSegmentHandle, GetFileSegmentDA, NewFileSegment , Read, Swapln, 
VMnotFree]; 

Runlmage: PROGRAM 

IMPORTS AllocDefs, BFSDefs, BinaryDefs, DiskDefs, MiscDefs, SegmentDefs 

EXPORTS ImageDefs 

SHARES DiskDefs, ImageDefs, ProcessDefs, SegmentDefs =» 

BEGIN OPEN SegmentDefs, ImageDefs; 

PageSize: CARDINAL « AltoDef s . PageSize; 

BD: PROCEDURE [CARDINAL] RETURNS [ControlDefs . Fie! dDescriptor] « 
MACHINE CODE BEGIN Mopcodes . zLI4; Mopcodes . zSHIFT END; 

SetBit: PROCEDURE [[0..1], POINTER, ControlDefs . FieldDescriptor] » 
MACHINE CODE BEGIN Mopcodes . zWFS END; 

GetBit: PROCEDURE [POINTER, ControlDefs . FieldDescriptor] RETURNS [[0..1]] 
MACHINE CODE BEGIN Mopcodes . zRFS END; 

BootData: TYPE = RECORD [ 

pageMap: POINTER TO PageTable, 
firstDa: DiskDefs. DA, 
initial State: ControlDefs. SVPointer, 
terminator: WORD]; -- * 

PageTableHeader: TYPE - RECORD [ 
cfp: AltoFileDefs.CFP, 
firstpage: CARDINAL]; 

PageTable: TYPE - RECORD [ 
header: PageTableHeader, 
address: ARRAY [0..0) OF UNSPECIFIED]; 

ptPointer: POINTER TO POINTER TO PageTable ■ L00PH0LE[24B]; 

Invalidlmage: PUBLIC SIGNAL = CODE; 

NoRoomForLoader: PUBLIC SIGNAL - CODE; 

Runlmage: PUBLIC PROCEDURE [headerseg: FileSegmentHandle] ■ 
BEGIN 

bootdata: BootData; 
map: ARRAY [0..16) OF UNSPECIFIED; 
ptwords: CARDINAL <- SIZE[PageTableHeader]+l ; 
pt: POINTER TO PageTable; 
j: CARDINAL; 

mapi: POINTER TO Mapltem; 
loader, pagetable: DataSegmentHandle; 
image: POINTER TO ImageHeader; 
state: ControlDefs .SVPointer ■ 

LOOPHOLE[175000B-SIZE[ControlDefs. StateVector]]; 
ifile: FileHandle ■ headerseg. file; 
Swap I n[ headerseg] ; 

image <- FileSegmentAddress[headerseg]; 
IF image. prefix. versionident # ImageDefs. VersionID OR 
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image. prefix. options # THEN SIGNAL Inval idlmage; 
MiscDefs.Zero[@map, 16]; 
mapi <- ©image. map[0] ; 
DO 

IF mapi. count - THEN EXIT; 

ptwords <- ptwords + mapi. count; 

FOR j IN [mapi .page. .mapi .page+mapi .count] DO 
SetBit[l, ©map, BD[j]] ENDLOOP; 

WITH mapi SELECT FROM 
change °> 
BEGIN 

ptwords 4- ptwords + 2; 
mapi *- mapi + SIZE[change Mapltem]; 
END; 
normal a > mapi <- mapi + SIZE[normal Mapltem]; 
ENDCASE «> ERROR; 

ENDLOOP; 
loader *- Alloc[0map, 1]; 

IF loader = NIL THEN ERROR NoRoomForLoader ; 
pagetable <- Alloc[©map, (ptwords+PageSize-l)/PageSize] ; 
IF pagetable = NIL THEN 

BEGIN DeleteDataSegmentpoader]; ERROR NoRoomForLoader END; 
Setl)pBootMap[ptPointert 4- pt «- DataSegmentAddress[pagetable] , image]; 
BFSDefs.MakeCFP[cfp:©pt. header. cfp, fp :©if ile.fp]; 
pt .header . firstpage 4- headerseg .base+1; 
statet *- image, prefix. state ; 
bootdata 4- [ 

pageMap: pt, 

firstDa: FindDa[if ile, pt. header. firstpage] , 

initialState: state, 

terminator: 0]; 
CopyFileToDataSegment[ 

MiscDefs.DestroyFakeModule[LOOPHOLE[BinaryDefs.MesaBootLoader]].seg, 

loader]; 
BEGIN OPEN ProcessDefs; 

ActiveWordt 4- oiWt 4- in! ineDef s .BITSHIFT[l,SwatLevel]; 
MiscDefs.Zero[CV,SIZE[ConditionVector]]; 
CoreSwapDefs.Puntlnfot 4- NIL; 
END; 

[] 4- NovaOps.NovaJSR[JSR, DataSegmentAddress[loader], ©bootdata]; 
END; 

Alloc: PROCEDURE [map: POINTER, npages: CARDINAL] 
RETURNS [d: DataSegmentHandle] * 
BEGIN 

i, j: CARDINAL; 
d 4- NIL; 
FOR i IN [4. .249] DO 

IF GetBit[map,BD[i]] = THEN 

BEGIN ENABLE VMnotFree => BEGIN SetBit[l, map, BD[i]]; CONTINUE END; 

info: AllocDefs.AllocInfo = [0, hard, topdown, initial , other , TRUE , FALSE]; 

d 4- AllocDef s .MakeDataSegment[i , npages, info]; 

FOR j IN [0.. npages) DO SetBit[l, map, BD[i+j]] ENDLOOP; 

IF d # NIL THEN RETURN; 

i 4- i + npages-1; 

END 
ENDLOOP; 
RETURN 
END; 

SetUpBootMap: PROCEDURE [pt: POINTER TO PageTable, image: POINTER TO ImageHeader] 
BEGIN 

j: CARDINAL 4- 0; 
memaddress, memcount: CARDINAL; 

mapi: POINTER TO ImageDefs .Mapltem 4- ©image. map[0] ; 
DO 

IF (memcount 4- mapi. count) ■ THEN EXIT; 
memaddress 4- mapi ,page*PageSize; 
WITH mapi SELECT FROM 
change -> 
BEGIN 

pt.address[j] 4- base*2+l; 
pt.address[j+l] <- da; 

j - j + 2*. 

mapi 4- mapi + SIZE[change ImageDefs. Mapltem]; 

END; 
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normal «> mapi <- mapi + SIZE[normal ImageDef s .Mapltem] ; 
ENDCASE; 
THROUGH [0. .memcount) DO 
pt.address[j] <- memaddress; 
memaddress «- memaddress + PageSize; 

J <" J + 1; 
ENDLOOP; 
ENDLOOP; 
pt.address[j] «- 0; 
END; 

FindDa: PROCEDURE [file: FileHandle, page: CARDINAL] RETURNS [da: DiskDefs.DA] 
BEGIN 

seg: FileSegmentHandle <~ NewFileSegment[f ile, page, 1, Read]; 
da <- DiskDefs.Rea1DA[SegmentDefs.GetFileSegmentDA[seg]]; 
DeleteFileSegment[seg]; 
RETURN 
END; 

END. . . 



